Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/gigi.:ej
There are no other files named gigi.:ej in the archive.
(z
[0+8+FQ(+4)[1
0FO10F"G(
)+Q1U0FQ0-3"GQ0'
F0@FS^RInit'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
GIGE`QY%`{hFwduR~"#.9@VO\&DSetupIGIGIslibraryDraw picturefer to local BASIC~DOC~ ~FILENAME~ -*-TECO-*-~FILENAME~ -*-TECO-*-GIGI
m(m.mGIGI mode)
:i*Return from superior hook[0
:fo..q0"L
:i*m(m.mGIGI mode)
m.v0'
"#q0[2:i02m(m.mGIGI mode)
',m(m.m& setup VT100 library)
0fsinv mode
:i*fsimageout
m(m.mVT100 Page Mode)
:i10fsi&dline
m1q1fsttymacro
1fsmodechange
0f[lines0f[toplinef+
4,fFont name:[1
f[bbind
er1@y
jiPps(e)p[100,100]t(a0s3)
'Loading character set...'

zji
hx*fsimageout
:i*
(0fsimageout
11:i*Pp;SS(E)p[100,100]w(i(y))t(a0s3)'Sending buffer...'
\PrBA2\fsimageout
hx*fsimageout
:i*PrBA0\fsimageout
150
:i*PpS(E)\fsimageout
0u..H
0,zn:i*Pp;s(e)p[0,0]fsimageout
hx*fsimageout
:i*\fsimageout
0fsmodechange
:fi
m(m.mGIGI mode)>GIGI (aka VK100) routines, gripes to Ecg.Rich@DEC-MarlboroC Run GIGI modeJC Tell ITSTECO about the new kid on the block.
must have VT100 loaded,C Use a character set. We assume it's #12C Sends the current buffer to local GIGI BASIC#C Send the buffer as regis code\& Setup GIGI library
GIGI mode
GIGI Use font
Send buffer to local BASIC
Draw picture